unit UdmObjetos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UdmKernel_CadBase, FMTBcd, DB, DBClient, Provider, SqlExpr;

type
  TdmObjetos = class(TdmKernel_CadBase)
    cdsLstTIPO_OBJ: TClientDataSet;
    dsLstTIPO_OBJ: TDataSource;
    cdsLstTIPO_OBJID_TIPO_OBJ: TIntegerField;
    cdsLstTIPO_OBJNOME_TIPO_OBJ: TStringField;
    qryCadBaseID_OBJ: TIntegerField;
    qryCadBaseNOME_OBJ: TStringField;
    qryCadBaseCLASSE_OBJS: TStringField;
    qryCadBaseFKTABLE_OBJS: TStringField;
    qryCadBaseTITULO_OBJS: TStringField;
    qryCadBaseID_TIPO_OBJS: TIntegerField;
    cdsCadBaseID_OBJ: TIntegerField;
    cdsCadBaseNOME_OBJ: TStringField;
    cdsCadBaseCLASSE_OBJS: TStringField;
    cdsCadBaseFKTABLE_OBJS: TStringField;
    cdsCadBaseTITULO_OBJS: TStringField;
    cdsCadBaseID_TIPO_OBJS: TIntegerField;
    cdsLstObj_Modelos: TClientDataSet;
    dsLstObj_Modelos: TDataSource;
    cdsLstObj_ModelosID_OBJMOD: TIntegerField;
    cdsLstObj_ModelosNOME_OBJMOD: TStringField;
    cdsLstObj_ModelosCLASSE_OBJMOD: TStringField;
    cdsLstObj_ModelosID_TIPO_OBJ: TIntegerField;
    cdsLstProjetos: TClientDataSet;
    dsLstProjetos: TDataSource;
    cdsLstProjetosID_PROJETO: TIntegerField;
    cdsLstProjetosNOME_PROJETO: TStringField;
    cdsLstProjetosDATA_CRIACAO_PROJETO: TDateField;
    cdsLstProjetosID_TIPO_PROJETO: TIntegerField;
    cdsLstProjetosID_TIPO_BANCO: TIntegerField;
    cdsLstTipo_ObjMod: TClientDataSet;
    dsLstTipo_ObjMod: TDataSource;
    cdsLstTipo_ObjModID_TIPO_OBJ: TIntegerField;
    cdsLstTipo_ObjModNOME_TIPO_OBJ: TStringField;
    qryCadBaseID_PROJETO: TIntegerField;
    cdsCadBaseID_PROJETO: TIntegerField;
    qryLstBaseID_OBJ: TIntegerField;
    qryLstBaseNOME_OBJ: TStringField;
    qryLstBaseCLASSE_OBJS: TStringField;
    qryLstBaseFKTABLE_OBJS: TStringField;
    qryLstBaseTITULO_OBJS: TStringField;
    qryLstBaseID_TIPO_OBJS: TIntegerField;
    qryLstBaseID_PROJETO: TIntegerField;
    cdsLstBaseID_OBJ: TIntegerField;
    cdsLstBaseNOME_OBJ: TStringField;
    cdsLstBaseCLASSE_OBJS: TStringField;
    cdsLstBaseFKTABLE_OBJS: TStringField;
    cdsLstBaseTITULO_OBJS: TStringField;
    cdsLstBaseID_TIPO_OBJS: TIntegerField;
    cdsLstBaseID_PROJETO: TIntegerField;
    cdsObjetosProjeto: TClientDataSet;
    dsObjetosProjeto: TDataSource;
    cdsObjetosProjetoID_OBJ: TIntegerField;
    cdsObjetosProjetoNOME_OBJ: TStringField;
    cdsObjetosProjetoCLASSE_OBJS: TStringField;
    cdsObjetosProjetoFKTABLE_OBJS: TStringField;
    cdsObjetosProjetoTITULO_OBJS: TStringField;
    cdsObjetosProjetoID_TIPO_OBJS: TIntegerField;
    cdsObjetosProjetoID_PROJETO: TIntegerField;
  private
    { Private declarations }
  public
    procedure kernel_CaregaConfiguracoes();override;
  end;

var
  dmObjetos: TdmObjetos;

implementation

uses UKernel_VariaveisPublic, UdmPrincipal;

{$R *.dfm}

procedure TdmObjetos.kernel_CaregaConfiguracoes;
begin
  inherited;
  {Nome da tabela}
  Kernel_Cadastro.str_Tabela := 'OBJETOS_EXISTENTES';
  {Nome do Campo chave da tabela}
  Kernel_Cadastro.str_CampoChave := 'ID_OBJ';
end;

end.
